home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / setup_ut / ssetup24 / global.ba_ / GLOBAL.BAS
BASIC Source File  |  1995-01-25  |  26KB  |  545 lines
  1.  
  2. ' ----------------------------------------------------------------------------------------------------------------------------------------------------------
  3. ' Setup Studio 2.4 COPYRIGHT 1993-1995 HEXANET - Header file for Visual Basic (r) and Basic like languages
  4. ' ----------------------------------------------------------------------------------------------------------------------------------------------------------
  5. ' Please, Copy this file into your Global.bas module
  6. ' For more information, see CSETUP.H or CSETUP.HLP
  7. ' Use this file with CSETUP.DLL.
  8. '
  9. ' ----------------------------------------------------------------------------------------------------------------------------------------------------------
  10. '
  11. ' Warning:
  12. ' We use LoadLibrary/FreeLibrary to preload the DLLs so that VB is able to load the functions
  13. '
  14. ' ----------------------------------------------------------------------------------------------------------------------------------------------------------
  15.  
  16. ' ---------------------------
  17. ' Special for this version
  18. ' ---------------------------
  19. Declare Function GetModuleHandle Lib "KERNEL.DLL" (ByVal lpszModuleName$) As Integer
  20. Declare Function LoadLibrary Lib "KERNEL.DLL" (ByVal lpszLibFileName$) As Integer
  21. Declare Sub FreeLibrary Lib "KERNEL.DLL" (ByVal hLibInst%)
  22.  
  23. Declare Function Ctl3dRegister Lib "CTL3D.DLL" (ByVal hIntanceApp%) As Integer
  24. Declare Function Ctl3dUnregister Lib "CTL3D.DLL" (ByVal hIntanceApp%) As Integer
  25. Declare Function Ctl3dAutoSubclass Lib "CTL3D.DLL" (ByVal hIntanceApp%) As Integer
  26. Declare Function BringWindowToTop Lib "USER.EXE" (ByVal hWnd%) As Integer
  27. Declare Function GetActiveWindow Lib "USER.EXE" () As Integer
  28. Declare Function GetProfileString Lib "KERNEL.DLL" (ByVal lpszSection$, ByVal lpszEntry$, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cbReturnBuffer%) As Integer
  29. Declare Function GetPrivateProfileString Lib "KERNEL.DLL" (ByVal szSection$, ByVal szKey$, ByVal szDefault$, ByVal szBuffer$, ByVal iCount%, ByVal szFile$) As Integer
  30. Declare Function GetWindowsDirectory Lib "KERNEL.DLL" (ByVal szWinDir$, ByVal iCount%) As Integer
  31. Declare Function WinHelp Lib "USER.EXE" (ByVal hWnd%, ByVal szHelpFile$, ByVal fuCommand%, ByVal lCode&) As Integer
  32.  
  33.  
  34.  
  35. '----------------------------
  36. ' Initialization function
  37. '----------------------------
  38. Declare Sub SetupInitForFunctions Lib "CSETUP.DLL" (ByVal szYourName$, ByVal szPassword$)       '[new]
  39.  
  40. '---------------------------
  41. ' 1 - Information functions
  42. '---------------------------
  43.  
  44.  
  45. '-------------------------------------
  46. ' General System information functions
  47. '-------------------------------------
  48. Global Const BDETECT_WIN386 = 0                 ' 386 mode
  49. Global Const BDETECT_VGA640 = 1                 ' VGA 640 pixels at least
  50. Global Const BDETECT_VGA800 = 2                 ' VGA 800 pixels at least
  51. Global Const BDETECT_VGA1024 = 3                ' VGA 1024 pixels at least
  52. Global Const BDETECT_16COLORS = 4               ' 16 colors at least
  53. Global Const BDETECT_256COLORS = 5              ' 256 colors at least
  54. Global Const BDETECT_COPRO = 6                  ' Math. coprocessor
  55. Global Const BDETECT_286 = 7                    ' 286 CPU
  56. Global Const BDETECT_386 = 8                    ' 386 CPU
  57. Global Const BDETECT_486 = 9                    ' 486 CPU
  58. Global Const BDETECT_MOUSE = 10                 ' Mouse
  59. Declare Function bDetect Lib "CSETUP.DLL" (ByVal CVALUE%) As Integer
  60.  
  61. Global Const LDETECT_BUFFERS = 0                ' Buffers declared in CONFIG.SYS
  62. Global Const LDETECT_FILES = 1                  ' Files declared in CONFIG.SYS
  63. Global Const LDETECT_DRIVES = 2                 ' Number of drives
  64. Global Const LDETECT_FREERES = 3                ' Free system resources available ( percent )
  65. Global Const LDETECT_FREERAM = 4                ' Free memory available
  66. Declare Function lDetect Lib "CSETUP.DLL" (ByVal CVALUE%) As Long
  67.  
  68.  
  69. '------------------------------
  70. ' Drives information functions
  71. '------------------------------
  72. Global Const DRIVETYPE_REMOTE = 0               ' Network unit
  73. Global Const DRIVETYPE_FIXED = 1                ' HD
  74. Global Const DRIVETYPE_REMOVABLE = 2            ' FD
  75. Global Const DRIVETYPE_UNKNOWN = 3              ' Unknown type
  76.  
  77. Declare Function AskForDriveType Lib "CSETUP.DLL" (ByVal drive%) As Integer
  78. Declare Function AskForDriveSpace Lib "CSETUP.DLL" (ByVal drive%) As Long
  79. Declare Function IsDriveValid Lib "CSETUP.DLL" (ByVal szDriveLetter$) As Integer
  80. Declare Function GetDriveNumber Lib "CSETUP.DLL" (ByVal szPath$) As Integer
  81.  
  82.  
  83.  
  84.  
  85. '--------------------------------
  86. ' Directory information functions
  87. '--------------------------------
  88. 'The following functions were removed (we use the SDK instead)...
  89. 'Declare Function AskForWinDir Lib "CSETUP.DLL" () As String
  90. 'Declare Function AskForWinSysDir Lib "CSETUP.DLL" () As String
  91. Declare Function DoesDirExist Lib "CSETUP.DLL" (ByVal szDirName$) As Integer
  92.  
  93.  
  94.  
  95. '----------------------------
  96. ' Files information functions
  97. '----------------------------
  98. Declare Function DoesFileExist Lib "CSETUP.DLL" (ByVal szFileName$, ByVal FormalSearch%) As Integer
  99. 'Following function is not available with VB (see SSTUDIO.HLP for details)...
  100. 'Declare Function GetAbsoluteFileName Lib "CSETUP.DLL" (ByVal szFileName$) As String
  101. Declare Sub VBGetAbsoluteFileName Lib "CSETUP.DLL" (ByVal szFileName$, ByVal szBuffer$)
  102.  
  103.  
  104. '--------------------------------------------
  105. ' Module ( DLL or EXE ) information functions
  106. '---------------------------------------------
  107. Declare Function CountModuleUsage Lib "CSETUP.DLL" (ByVal szModule$) As Integer
  108. Declare Function IsDLLLoaded Lib "CSETUP.DLL" (ByVal szModule$) As Integer
  109.  
  110.  
  111.  
  112. '--------------------------------------------
  113. ' Environment information functions
  114. '--------------------------------------------
  115. 'Following function is not available with VB (see SSTUDIO.HLP for details)...
  116. 'Declare Function GetEnvVariable Lib "CSETUP.DLL" (ByVal szVariableName$) As String
  117. Declare Sub VBGetEnvVariable Lib "CSETUP.DLL" (ByVal szVariableName$, ByVal szBuffer$)
  118. Declare Function CountPathsInPATH Lib "CSETUP.DLL" () As Integer
  119. 'Following function is not available with VB (see SSTUDIO.HLP for details)...
  120. 'Declare Function GetPathFromPATH Lib "CSETUP.DLL" (ByVal iPath%) As String
  121. Declare Sub VBGetPathFromPATH Lib "CSETUP.DLL" (ByVal iPath%, ByVal szBuffer$)
  122.  
  123.  
  124. '--------------------------------------
  125. ' 2 - Low level file and dir managment
  126. '--------------------------------------
  127.  
  128. '--------------
  129. ' Binary files
  130. '--------------
  131. Declare Function RenameFile Lib "CSETUP.DLL" (ByVal szOldFile$, ByVal szNewFile$) As Integer
  132. Declare Function DeleteFile Lib "CSETUP.DLL" (ByVal szFile$) As Integer
  133. Declare Function TouchFile Lib "CSETUP.DLL" (ByVal szFileName$, ByVal szNewDate$) As Integer
  134. Declare Function SetReadOnly Lib "CSETUP.DLL" (ByVal szFileName$, ByVal bRO%) As Integer
  135. Declare Function GetFileLength Lib "CSETUP.DLL" (ByVal szFileName$) As Long
  136. Declare Function CopyFile Lib "CSETUP.DLL" (ByVal szSrcFile$, ByVal szDestFile$) As Integer
  137. Declare Function ReCreateFile Lib "CSETUP.DLL" (ByVal szOriginalName$, ByVal szPieceFileName$) As Integer
  138.  
  139.  
  140. '-------------
  141. ' Ascii files
  142. '-------------
  143. Declare Function CreateAsciiFile Lib "CSETUP.DLL" (ByVal szFileName$) As Integer
  144. Declare Function CountFileLines Lib "CSETUP.DLL" (ByVal szFileName$) As Long
  145. 'Following function is not available with VB (see SSTUDIO.HLP for details)...
  146. 'Declare Function GetStringFromFile Lib "CSETUP.DLL" (ByVal szFileName$, ByVal lIndex As Long) As String
  147. Declare Sub VBGetStringFromFile Lib "CSETUP.DLL" (ByVal szFileName$, ByVal lIndex As Long, ByVal szBuffer$)
  148. Declare Function GetLineFromString Lib "CSETUP.DLL" (ByVal szFileName$, ByVal szString$, ByVal lStart As Long) As Long
  149. Declare Function FindStringInTextFile Lib "CSETUP.DLL" (ByVal szFileName$, ByVal szString$) As Integer
  150. Declare Function DeleteString Lib "CSETUP.DLL" (ByVal szFile$, ByVal iIndex%) As Integer
  151. Declare Function AddString Lib "CSETUP.DLL" (ByVal szFile$, ByVal szValue$) As Integer
  152. Declare Function SetLineInFile Lib "CSETUP.DLL" (ByVal szFileName$, ByVal szString$, ByVal lIndex As Long) As Integer
  153.  
  154.  
  155.  
  156. '-------------------------------
  157. ' Directory managment functions
  158. '-------------------------------
  159. Declare Function CreateDir Lib "CSETUP.DLL" (ByVal szDirName$) As Integer
  160. Declare Function DeleteDir Lib "CSETUP.DLL" (ByVal szDirName$) As Integer
  161.  
  162.  
  163.  
  164. '----------------------------------------------------------------------
  165. ' 3 - SDK similar functions useful for Setup programms ( for VB users )
  166. '----------------------------------------------------------------------
  167.  
  168.  
  169. '---------------------
  170. ' INI files managment
  171. '---------------------
  172. Declare Function GetWinIniInt Lib "CSETUP.DLL" (ByVal szSection$, ByVal szKey$, ByVal iDefault%) As Integer
  173. 'Declare Function GetWinIniString Lib "CSETUP.DLL" (ByVal szSection$, ByVal szKey$, ByVal szDefault$) As String '[Deleted]'
  174. Declare Function GetIniInt Lib "CSETUP.DLL" (ByVal szFile$, ByVal szSection$, ByVal szKey$, ByVal iDefault) As Integer
  175. 'Declare Function GetIniString Lib "CSETUP.DLL" (ByVal szFile$, ByVal szSection$, ByVal szKey$, ByVal szDefault$) As String '[Deleted]
  176. Declare Function SetWinnIniString Lib "CSETUP.DLL" (ByVal szSection$, ByVal szKey$, ByVal szValue$) As Integer
  177. Declare Function SetIniString Lib "CSETUP.DLL" (ByVal szFile$, ByVal szSection$, ByVal szKey$, ByVal szValue$) As Integer
  178.  
  179.  
  180. '---------------------
  181. ' Programms execution
  182. '---------------------
  183. Global Const RESTART_QUIT = 0
  184. Global Const RESTART_REBOOT = &H43
  185. Global Const RESTART_RESTART = &H42
  186.  
  187. Declare Sub QuitWindows Lib "CSETUP.DLL" (ByVal cMode%)
  188.  
  189. Global Const APPEXECUTE_SNORMAL = 0               ' Show normal and activate app.
  190. Global Const APPEXECUTE_SICON = 1                 ' Show iconized and activate app.
  191. Global Const APPEXECUTE_SMAX = 2                  ' Show maximized and activate app
  192. Global Const APPEXECUTE_SNOACTIVATE = 3           ' Show normal and do not activate app.
  193.  
  194. Declare Function AppExecute Lib "CSETUP.DLL" (ByVal szAppName$, ByVal cShowMode%) As Integer
  195. Declare Function DosTempExec Lib "CSETUP.DLL" (ByVal szAppName$, ByVal szParams$) As Integer
  196.  
  197.  
  198.  
  199. '----------------------------
  200. ' 4 - Setup specific helpers
  201. '----------------------------
  202. ' Note:
  203. '
  204. '   These functions may help you to create the Setup Interface before the files transfer.
  205. '   You need to initialise the DLL before any call to these functions
  206. '
  207. '----------------------------
  208.  
  209. '----------------------
  210. ' Sections information
  211. '----------------------
  212. Declare Function GetSectionSize Lib "CSETUP.DLL" (ByVal szSectionName$) As Long
  213. Declare Function GetConfigurationSize Lib "CSETUP.DLL" () As Long
  214.  
  215.  
  216. '--------------------------------------------------------------
  217. ' File name mangment ( useful to create Parsed Edit controls )
  218. '--------------------------------------------------------------
  219. Global Const FILENAME_SINGLEFILE = 0                    ' Filename must not contain directory specification
  220. Global Const FILENAME_DIRWITHSLASH = 1                  ' Dirname must contain a final \
  221. Global Const FILENAME_DIRWITHOUTSLASH = 2               ' Dirname must not contain a final \
  222. Global Const FILENAME_DIRANDFILE = 3                    ' Dirname + Filename
  223.  
  224. Global Const CHECK_NOCHECK = 0                          ' No check
  225. Global Const CHECK_FILEEXIST = 1                        ' The file must exist
  226. Global Const CHECK_ROOTDIRSEXIST = 2                    ' All root directories ( without the last ) must exist
  227. Global Const CHECK_ALLDIREXIST = 3                      ' All directories must exist
  228. Global Const CHECK_DIRANDFILE = 4                       ' All directories and the file must exist
  229.             
  230. Declare Function IsFileName Lib "CSETUP.DLL" (ByVal szFileName$, ByVal IsFileType%, ByVal iCheckMode%) As Integer
  231. 'Following function is not available with VB (see SSTUDIO.HLP for details)...
  232. 'Declare Function FormatFileNameValid Lib "CSETUP.DLL" (ByVal szFileNameIn$, ByVal bWithFinalSlash%) As String
  233. Declare Sub VBFormatFileNameValid Lib "CSETUP.DLL" (ByVal szFileNameIn$, ByVal bWithFinalSlash%, ByVal szBuffer$)
  234.  
  235.  
  236. '----------------------------
  237. ' Setup specific directories
  238. '----------------------------
  239. Declare Sub GetOriginalDir Lib "CSETUP.DLL" (szBuffer$)
  240. Declare Sub GetSetupTempDir Lib "CSETUP.DLL" (szBuffer$)
  241.                 
  242.  
  243.  
  244.  
  245.  
  246.  
  247. '--------------------------------
  248. ' 5 - Setup high level functions
  249. '--------------------------------
  250. ' Note:
  251. '
  252. '     You need to initialise the DLL before any call to these functions
  253. '
  254. '--------------------------------
  255. '
  256. '    Many functions are not required to create a setup programm.
  257. '    At least you should call:
  258. '
  259. '       SetupInitialize( "TEST", "")                    ----> Initialize the DLL
  260. '       AddSectionToCopyList( "Files", "dir" )          ----> Choose a Section to copy
  261. '       DeleteSystemDir()                               ----> To clean up the drive
  262. '
  263. '--------------------------------
  264.            
  265.            
  266. '--------------------------
  267. ' Initialization functions
  268. '--------------------------
  269. Declare Function SetupInitialize Lib "CSETUP.DLL" (ByVal szYourName As String, ByVal szPassword As String, ByVal Language%, ByVal szSrcDir$, ByVal szDestDir$) As Integer
  270. Declare Function SetLogFile Lib "CSETUP.DLL" (ByVal szLogFileName$) As Integer
  271. Declare Function SetSharedBatchFile Lib "CSETUP.DLL" (ByVal szBatchFileName$, ByVal szSysDir$) As Integer
  272.              
  273.              
  274. '-----------------------------------
  275. ' DDE Link with Progman functions
  276. '-----------------------------------
  277. Declare Sub AddItemToProgman Lib "CSETUP.DLL" (ByVal szGroupName$, ByVal szExeName$, ByVal szTitle$, ByVal szTextInfo$)
  278. Declare Function AddProgmanGroup Lib "CSETUP.DLL" (ByVal szGroupName$) As Integer
  279. Declare Function ShowProgmanGroup Lib "CSETUP.DLL" (ByVal szGroupName$) As Integer
  280. Declare Function DeleteProgmanGroup Lib "CSETUP.DLL" (ByVal szGroupName$) As Integer
  281. Declare Function AddProgmanItem Lib "CSETUP.DLL" (ByVal szProgName$, ByVal szTitle$) As Integer
  282. Declare Function DeleteProgmanItem Lib "CSETUP.DLL" (ByVal szItemName$) As Integer
  283. Declare Function QuitProgman Lib "CSETUP.DLL" () As Integer
  284.              
  285. '--------------------
  286. ' Specific functions
  287. '--------------------
  288. Declare Function AddSectionToCopyList Lib "CSETUP.DLL" (ByVal szSection$, ByVal szDestDir$) As Integer
  289.  
  290. ' These are the values returned by GoSetup Function -----------
  291. Global Const SETUP_SUCCESSFUL = 1               ' Transfert is OK
  292. Global Const SETUP_USERBYPASS = 2               ' User bypassed a file
  293. Global Const SETUP_FAILINCOPYING = 3            ' Fail in copy ( fatal )
  294. Global Const SETUP_USERABORT = 4                ' User abort transfer ( fatal )
  295. Global Const SETUP_CANTCREATEDIR = 5            ' Can' t create destination directoy ( fatal )
  296. Global Const SETUP_WRONGSIZE = 6                ' File size verification error ( Verify mode only - fatal )
  297. Global Const SETUP_INTERNALERROR = 7            ' Error in YOUR programm... ( fatal )
  298.  
  299. ' These are the messages sent by GoSetup Function to hwnd---------
  300. 'Global Const    SN_FILENOTFOUND=        WM_USER + 381   ' File not found in disk - not fatal - lp is FileName
  301. 'Global Const    SN_SRCDIRCHANGE=        WM_USER + 382   ' User change source directory - retrieve new dir with AskForSrcDir
  302. 'Global Const    SN_NEWDISKREQUIRED=     WM_USER + 383   ' Dialog box " New disk required is shown " - lp = new disk label
  303. 'Global Const    SN_FILEINSTALLED=       WM_USER + 384   ' File is installed - lp is destination filename
  304.  
  305.  
  306. Declare Function GoSetup Lib "CSETUP.DLL" (ByVal hWnd%, ByVal bUseFinish%) As Integer
  307. Declare Function DeleteSystemDir Lib "CSETUP.DLL" () As Integer
  308. 'Following function is not available with VB (see SSTUDIO.HLP for details)...
  309. 'Declare Function GetWinFileAssociation Lib "CSETUP.DLL" (ByVal szFileExtName$) As String
  310. Declare Sub VBGetWinFileAssociation Lib "CSETUP.DLL" (ByVal szFileExtName$, ByVal szBuffer$)
  311.  
  312. Declare Function CreateWinFileAssociation Lib "CSETUP.DLL" (ByVal szFileExtName$, ByVal szExeFile$) As Integer
  313. Declare Function ShowWaitCursor Lib "CSETUP.DLL" () As Integer
  314. Declare Function HideWaitCursor Lib "CSETUP.DLL" () As Integer
  315.  
  316.  
  317. '----------------------
  318. ' Interface functions
  319. '----------------------
  320. Global Const BROSSE_PBLANC = 1          ' Define BRUSH color for background.... ( WHITE )
  321. Global Const BROSSE_PNOIR = 2           ' ... ( BLACK )
  322. Global Const BROSSE_GRIS100 = 3         ' ... ( VERY LIGHT GREY )
  323. Global Const BROSSE_PGRISC = 4          ' ... ( LIGHT GREY )
  324. Global Const BROSSE_GRIS150 = 5         ' ... ( MIDDLE GREY )
  325. Global Const BROSSE_PGRISF = 6          ' ... ( DARK GREY )
  326. Global Const BROSSE_CYAN25 = 7          ' ... ( VERY LIGHT CYAN )
  327. Global Const BROSSE_CYAN50 = 8          ' ... ( LIGHT CYAN )
  328. Global Const BROSSE_CYAN100 = 9         ' ... ( MEDIUM CYAN )
  329. Global Const BROSSE_PCYANC = 10         ' ... ( CYAN )
  330. Global Const BROSSE_PCYANF = 11         ' ... ( DARK CYAN )
  331. Global Const BROSSE_CYAN200 = 12        ' ... ( VERY DARK CYAN )
  332. Global Const BROSSE_BLEU50 = 13         ' ... ( LIGHT BLUE )
  333. Global Const BROSSE_BLEUVERT = 14       ' ... ( LIGHT BLUE GREEN )
  334. Global Const BROSSE_BLEU150 = 15        ' ... ( MEDIUM BLUE )
  335. Global Const BROSSE_PBLEUC = 16         ' ... ( BLUE )
  336. Global Const BROSSE_BLEU200 = 17        ' ... ( DARK BLUE )
  337. Global Const BROSSE_PBLEUF = 18         ' ... ( VERY DARK BLUE )
  338. Global Const BROSSE_BLEU250 = 19        ' ... ( BLUE BLACK )
  339. Global Const BROSSE_VERT25 = 20         ' ... ( VERY LIGHT GREEN )
  340. Global Const BROSSE_VERT50 = 21         ' ... ( LIGHT GREEN )
  341. Global Const BROSSE_VERT100 = 22        ' ... ( MEDIUM GREEN )
  342. Global Const BROSSE_PVERTC = 23         ' ... ( SALAD GREEN )
  343. Global Const BROSSE_VERT200 = 24        ' ... ( LIGHT DARK GREEN )
  344. Global Const BROSSE_VERT250 = 25        ' ... ( MEDIUM DARK GREEN )
  345. Global Const BROSSE_PVERTF = 26         ' ... ( DARK GREEN )
  346. Global Const BROSSE_KAKI = 27           ' ... ( KHAKI )
  347. Global Const BROSSE_JAUNE50 = 28        ' ... ( VERY LIGHT YELLOW )
  348. Global Const BROSSE_JAUNE100 = 29       ' ... ( LIGHT YELLOW )
  349. Global Const BROSSE_PJAUNEC = 30        ' ... ( YELLOW )
  350. Global Const BROSSE_JAUNE150 = 31       ' ... ( DARK YELLOW )
  351. Global Const BROSSE_ORANGE = 32         ' ... ( ORANGE )
  352. Global Const BROSSE_BEIGE = 33          ' ... ( BEIGE )
  353. Global Const BROSSE_PJAUNEF = 34        ' ... ( VERY DARK YELLOW )
  354. Global Const BROSSE_MARRON = 35         ' ... ( BROWN )
  355. Global Const BROSSE_ROSE100 = 36        ' ... ( PINK )
  356. Global Const BROSSE_ROUGE100 = 37       ' ... ( LIGHT RED )
  357. Global Const BROSSE_PROUGEC = 38        ' ... ( RED )
  358. Global Const BROSSE_PROUGEF = 39        ' ... ( DARK RED )
  359. Global Const BROSSE_FUSH50 = 40         ' ... ( VERY LIGHT MAGENTA )
  360. Global Const BROSSE_FUSH100 = 41        ' ... ( LIGHT MAGENTA )
  361. Global Const BROSSE_PFUSHC = 42         ' ... ( MAGENTA )
  362. Global Const BROSSE_PFUSHF = 43         ' ... ( DARK MAGENTA )
  363. Global Const BROSSE_3DRECT = 44         ' ... ( SPECIAL - 3D RECTANGLE )
  364. Global Const BROSSE_3DCIRCLE = 45       ' ... ( SPECIAL - 3D CIRCLE )
  365. Global Const BROSSE_3DLOZANGE = 46      ' ... ( SPECIAL - 3D DIAMOND )
  366.  
  367. Declare Function SetPatternBrush Lib "CSETUP.DLL" (ByVal hi%, ByVal iBitmap%) As Integer
  368. Declare Function SetPatternBrushStandard Lib "CSETUP.DLL" (ByVal iModel%) As Integer
  369. Declare Function SetupSetTitle Lib "CSETUP.DLL" (ByVal szDialogTitle$) As Integer       '[new]
  370. Declare Function SetupSetBeepMode Lib "CSETUP.DLL" (ByVal bDiskBeepMode%) As Integer    '[new]
  371. Declare Function SetLogo Lib "CSETUP.DLL" (ByVal hi%, ByVal iSetupLogo%) As Integer
  372. Declare Function SetLogoType Lib "CSETUP.DLL" (ByVal bTextType%) As Integer
  373. Declare Function SetTextLogo Lib "CSETUP.DLL" (ByVal szLogoText$, ByVal szFont$, ByVal iLogoSize%, ByVal clrLogo As Long, ByVal b3D%, ByVal bItalic%) As Integer
  374. Declare Function SetTextDetail Lib "CSETUP.DLL" (ByVal szLogoText$, ByVal szFont$, ByVal iLogoSize%, ByVal clrLogo As Long, ByVal b3D%, ByVal bItalic%) As Integer      '[new]
  375. Declare Function SetVerifyMode Lib "CSETUP.DLL" (ByVal bVerify%) As Integer
  376.  
  377. Global Const LANGUAGE_ENGLISH = 0               ' Language definition ( use French or English )
  378. Global Const LANGUAGE_FRENCH = 1                ' ...
  379. Global Const LANGUAGE_GERMAN = 2                ' NOT AVAILABLE FOR THIS VERSION !!!
  380. Global Const LANGUAGE_SPANISH = 3               ' NOT AVAILABLE FOR THIS VERSION !!!
  381.  
  382. Declare Function SetupSetLanguage Lib "CSETUP.DLL" (ByVal cSetupLanguage%) As Integer   '[new]
  383. Declare Function ShowMainWindow Lib "CSETUP.DLL" (ByVal hOriginalWnd%) As Integer
  384.  
  385.  
  386.  
  387. '------------------
  388. ' 6 - New functions
  389. '------------------
  390. Declare Sub CenterDialogBox Lib "CSETUP.DLL" (ByVal m_hWnd%)
  391. Declare Sub GiveTheHand Lib "CSETUP.DLL" ()
  392. Declare Function CopyFile Lib "CSETUP.DLL" (ByVal szSrcFile$, ByVal szDestFile$) As Integer
  393. Declare Function IsFileNewer Lib "CSETUP.DLL" (ByVal szFileIn$, ByVal szFileOut$) As Integer
  394. Declare Sub GetBackupName Lib "CSETUP.DLL" (ByVal szFileIn$, szNewName$)
  395. Declare Function BackupFile Lib "CSETUP.DLL" (ByVal szFileIn$) As Integer
  396.  
  397. Declare Sub SetupBrowseDir Lib "CSETUP.DLL" (ByVal hWnd%, ByVal szBuffer2$)  '[2.4]
  398.  
  399.  
  400.  
  401.  
  402.  
  403.  
  404. ' // GENERIC SAMPLE ----------------------------------------------------------------------------------
  405.  
  406. 'General ---
  407. Global Const szYourName$ = "TEST"
  408. Global Const szPassword$ = ""
  409. Global Const iBackgroundPaper% = BROSSE_3DCIRCLE
  410. Global Const bBeepMode% = 1
  411. Global Const bVerifyMode% = 1
  412. Global Const szProductName$ = "VB Setup Sample"
  413. Global Const szSetupBoxTitle$ = "VB Setup Sample - Installation"
  414. Global Const szDefaultDir$ = "VBSETUP\"
  415.  
  416. 'Titles ---
  417. Global Const Dialog1Title$ = "VB Setup Sample - 1"
  418. Global Const Dialog2Title$ = "VB Setup Sample - Options"
  419. Global Const Dialog3Title$ = "VB Setup Sample - 3"
  420.  
  421. 'Panel 1 (first panel)---
  422. Global Const iPanel1Bitmap% = 0
  423. Global Const szPanel1Title$ = "Panel 1 Title"
  424. Global Const szPanel1TitleFont$ = "Arial"
  425. Global Const iPanel1TitleSize% = 56
  426. Global Const bPanel1Title3D% = 1
  427. Global Const bPanel1TitleBold% = 1
  428. Global Const szPanel1Detail$ = "Generic Setup program for VB 1.0..."
  429. Global Const szPanel1DetailFont$ = "Times New Roman"
  430. Global Const iPanel1DetailSize% = 26
  431. Global Const bPanel1Detail3D% = 1
  432. Global Const bPanel1DetailBold% = 1
  433. 'I don' t know how we can use RGB with VB so we change these colors on the LOAD event...
  434. Global lPanel1TitleColor& '=RGB(192,192,192)
  435. Global lPanel1DetailColor& '=RGB(0,128,128)
  436.  
  437. 'Panel 2 (directory)---
  438. Global Const iPanel2Bitmap% = 0
  439. Global Const szPanel2Title$ = "Panel 2 Title"
  440. Global Const szPanel2TitleFont$ = "Arial"
  441. Global Const iPanel2TitleSize% = 56
  442. Global Const bPanel2Title3D% = 1
  443. Global Const bPanel2TitleBold% = 1
  444. Global Const szPanel2Detail$ = "Generic Setup program for VB 1.0..."
  445. Global Const szPanel2DetailFont$ = "Times New Roman"
  446. Global Const iPanel2DetailSize% = 26
  447. Global Const bPanel2Detail3D% = 1
  448. Global Const bPanel2DetailBold% = 1
  449. 'I don' t know how we can use RGB with VB so we change these colors on the LOAD event...
  450. Global lPanel2TitleColor& '=RGB(192,192,192)
  451. Global lPanel2DetailColor& '=RGB(0,128,128)
  452.  
  453. 'Panel 3 (options)---
  454. Global Const iPanel3Bitmap% = 0
  455. Global Const szPanel3Title$ = "Panel 3 Title"
  456. Global Const szPanel3TitleFont$ = "Arial"
  457. Global Const iPanel3TitleSize% = 56
  458. Global Const bPanel3Title3D% = 1
  459. Global Const bPanel3TitleBold% = 1
  460. Global Const szPanel3Detail$ = "Generic Setup program for VB 1.0..."
  461. Global Const szPanel3DetailFont$ = "Times New Roman"
  462. Global Const iPanel3DetailSize% = 26
  463. Global Const bPanel3Detail3D% = 1
  464. Global Const bPanel3DetailBold% = 1
  465. 'I don' t know how we can use RGB with VB so we change these colors on the LOAD event...
  466. Global lPanel3TitleColor& '=RGB(192,192,192)
  467. Global lPanel3DetailColor& '=RGB(0,128,128)
  468.  
  469.  
  470. 'Shared batch ---
  471. Global Const bUseSharedBatch% = 0
  472. Global Const szBatchFile$ = ""
  473. Global Const szBatchDir$ = ""
  474.  
  475. 'log file ---
  476. Global Const bUseLogFile% = 1
  477. Global Const szLogFileName$ = "SETUP.LOG"
  478.  
  479. 'Sections (groups)---
  480. Type SECTIONENTRY
  481.  bSelected As Integer
  482.  lSize As Long
  483.  Name As String
  484.  Directory As String
  485.  ELabel As String
  486.  FLabel As String
  487. End Type
  488.  
  489. Global Const NumberOfSections% = 8 'Always 8 with this sample
  490. Global Section(1 To NumberOfSections%) As SECTIONENTRY
  491.  
  492.  
  493. 'Icons ---
  494. Type SICONENTRY
  495.  szIconRelativeName As String
  496.  EGroupName As String
  497.  EIconName As String
  498.  EIconText As String
  499.  FGroupName As String
  500.  FIconName As String
  501.  FIconText As String
  502. End Type
  503.  
  504. Global Const NumberOfIcons% = 1
  505. Global IconEntry(1 To NumberOfIcons%) As SICONENTRY
  506.  
  507. ' Winfile Associations ---
  508. Global Const bMakeAssociation% = 0
  509. Type sWFAsso
  510.  szProgName As String
  511.  szExt As String
  512. End Type
  513.  
  514. Global Const NumberOfAsso% = 1
  515. Global WFAsso(1 To NumberOfAsso%)  As sWFAsso
  516.  
  517.  
  518. ' And program to launch ---
  519. Global Const szLaunch$ = ""
  520.  
  521.  
  522. '--------------------------------------------------------------
  523. 'Other variables to build the Setup...
  524. '--------------------------------------------------------------
  525. Global szOriginalPath$
  526. Global szTempSetupPath$
  527. Global hIntance%
  528. Global bIsSetupOK%
  529. Global iLanguage%
  530. Global UserPath$
  531. Global UserConfigSize&
  532. Global bRunningSetup%
  533. Global szWinDir$
  534. Global FirstCanClose%
  535. Global DirCanClose%
  536. Global OptionCanClose%
  537. Global bUserAbort%
  538. Global hLibCSetup%
  539. Global hLibUZSetupXXX%
  540. Global hLibSGauge%
  541. Global hLibCTL3d%
  542.  
  543.  
  544.  
  545.